100 PRINT"[147]":POKE53280,12:POKE53281,15:POKE646,0:PRINT"CHANGE DEVICE-# ...."
110 INPUT"OLD DEVICE NUMBER ";D0
120 IFD0<8ORD0>15THEN110
130 INPUT"NEW DEVICE NUMBER ";DN
140 IFDN<8ORDN>15THEN130
150 OPEN15,D0,15
160 PRINT#15,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(DN+32)CHR$(DN+64)
170 CLOSE15:END